home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / FREE SECTORS DOS PATCH.bas < prev    next >
BASIC Source File  |  2012-02-16  |  961b  |  15 lines
  1. 10  REM  **DOS FREE SPACE PATCH**
  2. 15  GOSUB 200
  3. 20  REM  **BY MARK PUMP AND
  4. 25  REM  VAL GOLDING**
  5. 30  REM  **CALL APPLE, SEP 1980**
  6. 40  REM  TYPED BY WM J KERR SR
  7. 50  REM 
  8. 100 HEX$ = "BCBA:A2 0C 20 4A F9 A9 00 85 40 85 41 A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 00 E0 C0 20 D0 07 20 1B E5 20 2F AE 60 20 24 ED 20 2F AE 60 NADC3:20 BA BC ND823G"
  9. 110  FOR I = 1 TO  LEN(HEX$): POKE 511 +I, ASC( MID$ (HEX$,I,1)) +128: NEXT : POKE 72,0
  10. 120  CALL  -144
  11. 125  END 
  12. 200  TEXT : CALL  -936: VTAB 5: HTAB 4: PRINT "THIS PROGRAM WILL GIVE YOU THE AMOUNT OF FREE SPACE AVAILABLE ON A DISK WHEN IT IS IN MEMORY. "
  13. 210  PRINT : PRINT "IF YOU RUN IT AND THEN INITIALIZE A NEW DISK WITH IT IN MEMORY IT BECOMES PART  OF THE DOS SYSTEM ON THE NEWLY INITIALIZED DISK."
  14. 215  PRINT : PRINT "IT WILL THEN GIVE YOU THE FREE SPACE ON THE DISK WHEN IT BOOTS THE SYSTEM AND   YOU CALL CATALOG."
  15. 220  FOR D = 1 TO 2000: NEXT D: RETURN